home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / rlib.zip / RL_ENCRY.PRG < prev    next >
Text File  |  1993-01-04  |  521b  |  21 lines
  1. * Function: ENCRYPTED
  2. * Author..: Richard Low
  3. * Syntax..: ENCRYPTED( <expC> )
  4. * Returns.: Encrypted version of exp(c)
  5.  
  6. FUNCTION ENCRYPTED
  7. PARAMETER p_string
  8. PRIVATE f_temp, f_length, f_x
  9.  
  10. f_temp   = ''
  11. f_length = LEN(p_string)
  12.  
  13. FOR f_x = 1 TO f_length
  14.    *-- to encrypt, take character, convert to ASCII value, then
  15.    *-- add 101 plus its position in the string to it, then convert
  16.    *-- back to a character
  17.    f_temp = f_temp + CHR( ASC(SUBSTR(p_string,f_x,1) ) + 101 + f_x)
  18. NEXT
  19.  
  20. RETURN (f_temp)
  21.